
sub SearchDict{
	my($Word)=@_;
	my $Trans;
	if ( defined $mapDict{$Word}){
		$Trans=$mapDict{$Word};
		$Trans=~s/\@/\n/g;
	}else{
		$Trans="Not Found!";
	}
	return $Trans;
};
